home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H055.ZIP / MAC / WTORPC.MAC < prev   
Text File  |  1987-11-03  |  568b  |  34 lines
  1. WTORPC     MACRO ?,?
  2.      AIF   &1=?.READ
  3.      AIF   &1='.LIT
  4. &LABEL$$ SVC   31
  5.      IC    0,&1+L'&1
  6.      MVI   &1+L'&1,C'$'
  7.      LA    2,&1
  8.      SVC   209
  9.      STC   0,&1+L'&1
  10.      AGO   .READ
  11. .LIT     ANOP
  12. &LABEL$$ SVC   31
  13. TEXT     SETC  &1
  14.      LA    2,=C'&TEXT.$'
  15.      SVC   209
  16. .READ     SVC   30
  17.      MVC   &2,=16C' '
  18.      LA    2,WTOR$&N$
  19.      SVC   210
  20.      LA    2,=C'$'
  21.      SVC   209
  22.      XR    2,2
  23.      IC    2,WTOR$&N$+1
  24.      LTR   2,2
  25.      BZ    *+26
  26.      BCTR  2,0
  27.      STC   2,*+5
  28.      MVC   &2,WTOR$&N$+2
  29.      LA    1,&2
  30.      LA    2,1(2)
  31.      SVC   12
  32.      B     *+22
  33. WTOR$&N$ DC    AL1(L'&2+1,0),16X'20'
  34.